unit AVLibRes;

interface
uses Classes, SysUtils, Controls, Graphics, ImgList;

type

  TAVRes = class(TObject)
  private
    fImages: TImageList;
  public
    constructor Create;
    destructor Destroy; override;

    property Images: TImageList read fImages;
  end;

  TImageIdx = (GRID_CHECKBOX, GRID_CHECKBOX_MOUSE, GRID_CHECK);

var
  AVRes: TAVRes;

implementation

{$R AVLib.res}

//TAVRes

  constructor TAVRes.Create;
  begin
    inherited Create;
    fImages := TImageList.Create(nil);

    fImages.ResourceLoad(rtBitmap, 'BM_GRID_CHECKBOX', clWhite);
    fImages.ResourceLoad(rtBitmap, 'BM_GRID_CHECKBOX_MOUSE', clWhite);
    fImages.ResourceLoad(rtBitmap, 'BM_GRID_CHECK', clWhite);
  end;

  destructor TAVRes.Destroy;
  begin
    fImages.Free;
    inherited Destroy;
  end;

initialization
  AVRes := TAVRes.Create;

finalization
  AVRes.Free;

end.
